home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / demolar / lokman / DISK1 / _SETUP.4 / Group1 / Demo8E.exe / 0 / RCDATA / TZAMFORM / TZAMFORM.txt
Text File  |  1998-07-30  |  3KB  |  130 lines
  1. object ZamForm: TZamForm
  2.   Left = 241
  3.   Top = 188
  4.   ActiveControl = MaskEditZAM
  5.   BorderStyle = bsDialog
  6.   Caption = 'Zam Onay'
  7.   ClientHeight = 100
  8.   ClientWidth = 201
  9.   Color = clTeal
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OnShow = FormShow
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object Label1: TLabel
  18.     Left = 4
  19.     Top = 4
  20.     Width = 177
  21.     Height = 42
  22.     Caption = 
  23.       'Bu ∩┐╜r∩┐╜n∩┐╜n fiyat∩┐╜ artm∩┐╜∩┐╜ bu zaml∩┐╜ fiyat ise  ∩┐╜r∩┐╜n kart∩┐╜na i∩┐╜lensi' +
  24.       'n mi?'
  25.     Font.Color = clWhite
  26.     Font.Height = -11
  27.     Font.Name = 'Arial'
  28.     Font.Style = [fsBold]
  29.     ParentFont = False
  30.     WordWrap = True
  31.   end
  32.   object Label2: TLabel
  33.     Left = 35
  34.     Top = 42
  35.     Width = 61
  36.     Height = 14
  37.     Caption = 'Onay Tarihi'
  38.     Font.Color = clWhite
  39.     Font.Height = -11
  40.     Font.Name = 'Arial'
  41.     Font.Style = [fsBold]
  42.     ParentFont = False
  43.   end
  44.   object BtnEvet: TBitBtn
  45.     Left = 31
  46.     Top = 71
  47.     Width = 54
  48.     Height = 23
  49.     Caption = '&Evet'
  50.     Default = True
  51.     Font.Color = clNavy
  52.     Font.Height = -11
  53.     Font.Name = 'Arial'
  54.     Font.Style = [fsBold]
  55.     ParentFont = False
  56.     TabOrder = 0
  57.     OnClick = BtnEvetClick
  58.   end
  59.   object BtnHayir: TBitBtn
  60.     Left = 116
  61.     Top = 71
  62.     Width = 54
  63.     Height = 23
  64.     Cancel = True
  65.     Caption = '&Hay∩┐╜r'
  66.     Font.Color = clNavy
  67.     Font.Height = -11
  68.     Font.Name = 'Arial'
  69.     Font.Style = [fsBold]
  70.     ModalResult = 2
  71.     ParentFont = False
  72.     TabOrder = 1
  73.   end
  74.   object MaskEditZAM: TMaskEdit
  75.     Left = 103
  76.     Top = 39
  77.     Width = 63
  78.     Height = 21
  79.     AutoSelect = False
  80.     EditMask = '!90/90/9900;1;_'
  81.     MaxLength = 10
  82.     TabOrder = 2
  83.     Text = '  .  .    '
  84.   end
  85.   object QUrun: TQuery
  86.     DatabaseName = 'ECZ'
  87.     Params.Data = {
  88.       01000300056669794E6500070800000000000000000000000666697954726800
  89.       0904005A950A000000046E6F737500030400000000000000}
  90.     SQL.Strings = (
  91.       'UPDATE URUN'
  92.       'SET FIYAT=:fiyNe,'
  93.       'FIYATARIH=:fiyTrh'
  94.       'WHERE ILACNO=:nosu'
  95.       '')
  96.     Left = 16
  97.     Top = 24
  98.   end
  99.   object QESKI: TQuery
  100.     DatabaseName = 'ECZ'
  101.     Params.Data = {01000100046E6F737500030400000000000000}
  102.     SQL.Strings = (
  103.       'SELECT'
  104.       'URUN.FIYAT,'
  105.       'URUN.FIYATARIH'
  106.       'FROM URUN WHERE ILACNO=:nosu'
  107.       '')
  108.     Left = 48
  109.     Top = 24
  110.     object QESKIFIYAT: TCurrencyField
  111.       FieldName = 'FIYAT'
  112.     end
  113.     object QESKIFIYATARIH: TDateField
  114.       FieldName = 'FIYATARIH'
  115.     end
  116.   end
  117.   object QFiyatU: TQuery
  118.     DatabaseName = 'ECZ'
  119.     Params.Data = {
  120.       01000300046E6F73750003040000000000000003747268000B080000002C845D
  121.       40CB420000036679740007080000000000000000000000}
  122.     SQL.Strings = (
  123.       'INSERT INTO URFAYAR'
  124.       '(ILACNO, FITARIH,FIYAT)'
  125.       #9'VALUES(:nosu, :trh, :fyt)')
  126.     Left = 88
  127.     Top = 16
  128.   end
  129. end
  130.